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EDTSCHMEXVERB - execute certain change-mode com bese 1984 23:53:49 AX-11 Bliss-32 V4.0-74 Page 1 
14- ats fi $3:3349 feDT.sRe CHMEXVERB.BLI; . (1). 
ZTITLE ‘EDTSCHMEXVERB - execute certain change-mode commands’ 
MODULE EDTSCHMEXVERB ! enceuty gortete change-mode comm 
‘oe = *v04-000' ile: CHMEXVERB.BLI Edit "851034 


BEGIN 


' 
Lee AAAAAAAAA ARERR E EAE EAE AAAAAAAARAREREEE 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 
te 
* 
® 
® 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN, ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. . 
® 
® 
® 
® 
® 
® 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ew we ele lelolololololololelo lola lo lololololololq) 
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if the search failed. Since the value returned from EDTases. LEFT 
was ignored, it was possible $8, end up at a different place ~ 
than you began. DJS 04-Mar-19 

004 - Correct minor errors s. the ies sta JB jo-fer=1961 

005 = Build in T_ADV AN 1-Mar-1981 

B06 - Use the ASSeRt ae 188 1y0s -1981 

07 - Repair a comment. JBS ~dun' 81 


et ee a 2 2 od — 2 2 — — 4 — 4 — > — >» — 9 — 4 — 2 —4 —4 —4 — 4 4 —2 4) 4 —» —s —2 + 4 42 9 9 it 9 9 2s — 9 9 2s 9 —s 9 9 9 - 4) 4 32 OOOO 
- 
* 


i 
00 
003 14+ 
i ; FACILITY: EDT -- The DEC Standard Editor 
0034 i ABSTRACT: 
0036 : This module executes those change mode commands which 
oF E4 take an entity. 
44 ENVIRONMENT: Runs at any access mode - AST reentrant | 
0041 i AUTHOR: Bob Kushlis, CREATION DATE: Unknown | 
0043 i MODIFIED BY: | 
045 i 1-001 = Original. DJS 04-Feb-1981. This module was created by 
0046 ; eutrect ing routine EXECUTE_VERB from module CHANGE.BLI. 
0047 ! 1-002 - Regularize headers, JBS 02-Mar-1981 
0048 ! 1-003 - Fix bug in processing the SR entity. As preparation for 
0049 : doing a string search, the cursor was moved to the left the 
0050 search was done, B ee the cursor was moved back to the r 

' 

' 

' 
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j VOe~ 4-Sep-19 DT.SRCIJCHMEXVERB.BLI (1) | 
; 8 0038 1! 1- 8 - Correct the test for legit entities {8s 02-Jun-1981 
; 59 059 1 | 1-009 = Use new message codes. JBS 04-Aug-198 
; 60 Beet 1 ! 1-010 = Add a check for change case yerds, STS 3 ale 
3; 6 66} 061 1 ! 1-011 = Add search and select verb. STS 24-Sep-1981 
; § Rpg 1! 1- \§ = Add return value for end of journal f lg, JBS lt 
3 § 0065 1 ! 1-015 = Add new word type and para types. STS 26-0ct-1981 
; «664 0064 1 ! 1-014 = Remove an unused external reference. JBS 18-Dec-1981 
>; 65 0065 1! 1-312 - Fix problem with repeated CHGCSR's and run through PRETTY. JBS 29-Dec-1981 
; 66 0066 1! I- 1 - Fix bug in ADV comparison = string length incorrect. SMB 30-Jan-1982 
; oF 0067 1 ! 1-017 = Worry about gorine truncation. JBS 05-May-1198 
; «668 0068 1! 1-518 - Set a flag if control C actually aborts something. JBS 24-May-1982 
; @& B06? 1! 1-3) = Don't oy fo keep moving left if at beginning of buffer. STS 21-Jun-1982 
a 0070 1 ! 1-020 = Change string matching. JBS 16-Jul-1982 
; om 0071 1 ! 1-021 = Remove some redundent code. JBS 23-Jul-1982 
; 7 Bag 1! 1-0 § - New screen update logic. JBS 1 ae ie | 
ee 0075 1 ! 1-023 = Make call to edt$$tst_eob in Line. STS 22-Sep-1982 
; £6 0074 1 ! 1-024 = Remove EDTS$G_LN_NO for new screen oe tes logic. JBS 29-Sep-1982 
ee | 0075 1 ! 1-025 = Correct a typo in edit 1-024. JBS 30-Sep-1982 
; © 0076 1 ! 1-026 - Make tests for ADV and BACK be case insensitive. JBS 10-Nov-1982 
, aw 0077 1 ! 1-027 = Change call to EDTSSMRK_LNCHG. JBS 27-Dec-1982 : 
; | (O78 0078 1 ! 1-028 = Plan Srops for a problem sovelving unreasonable character position. JBS 27-Dec-1982 
: 79 0079 1! e's 9 - Improve those traps. JBS 28-Dec-1982 
; 80 0080 1 ! 1-030 - Add conditional for WPS support. JBS 10-Feb-1983 
; .6«BT 0081 1 ! 1-031 = Remove an ASSERT which causes an internal error. SMB 11-Feb-1983 
; 82 0082 1! pe $14 - Don't look for ADV or BACK beyond the end of the command. JBS 04-Mar-1983 
; §§3 0083 1 ! 1-033 - Fix -NL, and decrease size on PDP-11s by removing consistency checking. JBS 03-Jun-1983 
3 Se t'¢4 : 1-034 - Fix DESEL followed by SSEL in the same keystroke. JBS 20-Sep-1983 
: 86 0086 1 | 
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EDTSCHMEXVERB EDTSCHMEXVERB - execute certain change-mode com 15-Sep-1984 23:53:49 AX-11 Bliss-32 V4.0-74 Page 
v04-000 Declarations . 1228 08- 13h $3:33:%5 EDT. SRCICHMEXVERB.BLI; (23 
: § : ! XSBTTL ‘Declarations’ ‘ 
: 90 89 1 | TABLE OF CONTENTS: 3 
ae 2 $50 1! ; 
; °F 0091 1 : 
; + 03 : REQUIRE ‘EDTSRC: TRAROUNAM' ; : 
: 95 5 ¢ 1 FORWARD ROUTINE ; 
; 05 1 EDTSSEXE_CHMCMD2, ' Execute the verbs which take an entity specification : 
; 0534 1 CHANGE _CASE : NOVALUE; ! Change case in a range : 
; 0535 (1 : 
:; 299 82 $ 7} ; 
: 100 5 1 ! INCLUDE FILES: ; 
: 101 0538 1! : 
: 4 0539 1 . 
3; 10 0540 1 REQUIRE ‘EDTSRC:EDTREQ'; : 
: 104 0675 1 . 
; 105 0676 1 LIBRARY ‘EDTSRC:SUPPORTS'; . 
; 106 0677 1 : 
: 107 0678 1! : 
: 108 0679 1 ! MACROS: 3 
: 109 0680 1! ; 
: 110 0681 1! NONE : 
: 6111 0682 1! : 
: 16 068 1 ! EQUATED SYMBOLS: ; 
ae 0684 1! ; 
s 116 0685 1 : 
. 15 L 0686 1 ZIF XBLISS (BLISS16) ; 
s 16 U 0687 1 THEN c 
s 7 U 0688 1 3 
; 118 U 0689 1 LITERAL : 
> 119 u 0690 1 EXTRA_ASSERTS = 0; ; 
: 120 U 0691 1 § 
3 \¢1 0692 1 XELSE 3 
SS ; 0693 1 3 
3 te 0694 1 LITERAL 3 
3 126 0695 1 EXTRA_ASSERTS = 1; ; 
s 125 0696 1 3 
: 126 0697 1 &FI ; 
: 127 0698 1 
s 128 0699 1! 
3 44 0700 1 ! OWN STORAGE: 
: 489 6702 | | NONE 
3 : | 
o! Gores BE 
35 0704 1 ! EXTERNAL REFERENCES: 
3 «134 0705 1! 
: 135 0706 1! In the routine 
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104-600 $f E_CHMCMD2 = execute certain Phange-node 12286871382 13:33:40 DT LSREICHMEXVERB BL I; . (3) 
138 ZSBTTL ‘EDTSSEXE_CHMCMD2 = execute certain change-mode commands’ 
9 GLOBAL ROUTINE EDTSSEXE_CHMCMD2 ( ! Execute certain change-mode commands 

ENTITY, ' the entity to use 

COUNT, ' the number of entities to include 

VERB ! the command to execute 


) =z 
'e4 | 
} FUNCTIONAL DESCRIPTION: 

This routine executes verbs which take an entity specification. 
First it isolates the text defined by the entity type and the entity 
count which are potas as parameters; then performs the verb on the 
selected text. t then executes the verb on the text it has selected. 
FORMAL PARAMETERS: 
ENTITY the entity to use 
COUNT the number of entities to include 
VERB the command to execute. 


IMPLICIT INPUTS: 
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EDTS s 
al - execute certain change-mode 14-Sep- -BLI; 

Vv EDTSSEXE_CHMCMD2 t tai h de 14-Sep-1984 MEXVERB.BLI;1 (3). 

: 194 764 1! EDTS$$G_DEL_CHLEN ; 
; 195 765 1! EDTS$G_DEL_WDLEN : 
: 138 766 1! EDTS$$G_DEL_LNLEN : 
; 19 0767 1! EDTS$$G_CAS_TYP : 
; 198 0768 1! EDTSSA_ALT_BUF : 
: 199 (oo 1 | EDTS$A_CUR"BUF ; 
; soe 770 1! EDTS$G_LN_CEN : 
3 01 771i 1! EDTS$G_CC_DONE . 
: $06 4G: 1! EDTS$G_SCR_REBUILD : 
3; 2 07735 1! : 
> 204 0774 1 | ROUTINE VALUE: ; 
; 205 Bre? 73 : 3 
: 776 1! 1 = ok, 0 = hit a boundry, 2 = end of journal file : 
; 2 Q777 1! 3 
: 08 0778 1 ! SIDE EFFECTS: i 
; 209 o779 1! : 
: 210 0780 1! MANY 3 
3 203 0781 1! FH 
; \¢ 1414 1 !e= ; 
3 (al 0783 1 3 
3 214 0784 2 BEGIN : 
3 6435 0785 2 : 
; 216 0786 § EXTERNAL ROUTINE 3 
3 eur 0787 EDTSSFND_BSEN : NOVALUE, ! Find the beginning of a sentence : 
BR BBG BERR ova | Rtatestetuma'el ieee oes : 
3 vs, : » ' Delete whole Lines of tex 5 
; 220 0790 2 EDTSSMSG_BELL : NOVALUE, ! Output @ message to the terminal with a warning bell s 
3 $$) 0791 § EDTSSCHK_CC, ' Check to see if a CTRL/C has been typed 3 
3 6 O78 EDTSSTADJ_CMD : NOVALUE, ! Execute the TADJ command 3 
; $s 0793 2 EDTSSFND_EwD, ! Find the end of a word : F 
> 224 0794 2 EDTSSFND_ENT, } Search for a page or paragraph entity : 
BBR g | Bi Tr sate. BAT Mepuiide, : 
ee a jmoveees Geetezead soneton : 
; P ! Move to bottom of buffer 3 
; 144 teas § EDTSSAPC .CHGDLN, Declare current Line as changed ; 
; ! Move down a Line 3 
ee +) 0801 2 EDTS$$GET_TXTLN, ' Get current Line in Line buffer $ 
iz 0802 2 EDTS$CS_CEF ' Move left a character 3 
; $36 0803 2 EDTSSCS_RIGHT, Move right a character : 
He HG Biscig eanete | 7 
: ED ° e the current character position with a string descriptor : 

236 0806 TSSTST h h itio ith d i 

: +44 0807 EDTS$RPOS : NOVALUE Restore the saved buffer position : 
3; @e 0808 EDTSSSAV_BUFPOS : NOVALUE, ! Save the current buffer position : 
; +H tts A tad D res NOVALUE, peve 8 Cpletes word or Line in an undelete buffer 3 
3 . ‘ ' Match column 3 
; 504 0811 EDTS$SC_CPUNEWCOLPOS, ! Compute new column ; : : 
: $e§ bai¢ EDTSSSEC_RNGPOS, ! Compare the select Line with the current Line : 
; 24 081 EDTSSFND_SENDLIM, ' Look for a sentence delimiter : 
3 244 0814 EDTSSSTR_CMP ' Compare two strings of equal length : 
; 43 0815 EDISSSET SEASTR, ; Setup string search buffer ; 
3 if ' Go to bottom o 3 
> 247 0817 EDTSS$wWF-CLRBUF, i Clear a buffer ; 
: 248 Hts EDTSSEND_INS, ! End an insert sequence : 
; 249 081 EDTSSDEL_CURLN, ' Delete a Line from buffer : 
; 250 0820 EDTSSRPL_LN, ! Replace a Line in text buffer : 


EDTSCHMEXVERB EDTSCHMEKVER® = execute certain change-mode com 1-52 Sep-1984 AX-11 Bliss-32 V4.0-742 Page 6 

104-000 EDTSSEXE_CHMCMD2 = execute certain Ehenge-node 14- ~8ep-1984 3: 33: % EDT. SReJCH HMEXVERB.BLI;1 . (3) 

3 1 1 EDTSSRD_PRVLN, ! Move backward a Line 

% ¢ ¢ EDTSSRD_CURLN, ! Get the current Line 

; 254 L 0804 © XIF SUPPORT_WPS 

; 6 O8 3 EDTSSFND_WPARA ! find h 

; J . ! find a wps paragra 

: $8 085? 5 aFI eae 

; 258 0828 

; 24 4 3 EDTSSSTART_INS; ! Start an insert sequence 

; ) 0831 EXTERNAL 

; 8 L O8 g XIF SUPPORT_WPS 

> 264 0834 %TH 
; 265 0839 EDTS$G_CAS_TYP, 
; 266 08 $ 2FI 

; 267 083 

; 268 0838 EDTS$T_DEL_CH : BLOCK ! Deleted character buffer. 
: 69 0839 CCRSALCOCAT ION (2)], | 
; 270 0840 EDTS$G_DEL HLEN ! Length of deleted character buffer 
: 271 0841 2 EDTS$$T-DEL-LN : BLO i Deleted Line buffer. | 
; sie pose § CCAS ALCOCAI ION. (5570), 
, ef 084 EDTS$G_DEL_LNLEN ' Deleted Line Length. 

; 274 0844 2 EDTS$6_ aS i The current direction. 

s re 0845 2 EDTS$T "DEL BLO ! Deleted word buffer. 

; 276 0846 $ ECRSALCOCATION (8101, 

3 are 0847 EDTS$$G_DEL_WDLEN ' Length of del word string. 

; ef8 0848 2 EDTSSA_CMD_BUF, ! Command string pointer 

; (ery 0849 2 EDTSS$A_ ~CMD_END, ' Command string end 

: 280 0850 2 EDTSSA_SEA_STR, ! Address of search string. 

; 281 0851 2 EDTS$A_SEL_BUF, ! Pointer to select buffer. 

; 282 tht 2 EDTS$A_OLD_ BEL ' Select buffer before last screen update 

3 @B3 0853 2 EDTS$$G_SCR_ REBUILD, ' 1 = repaint the screen 

; 6284 0854 2 EDTSS$L_SEL_LN : LN_BLOCK, ! Relative Line number of select. 

g 80 0855 2 EDTS$$A_SEL_POS, ' select position. 

; 286 0856 2 EDT$$G_SEA_LEN, ' Length of search string. 
; 287 0857 § EDTS$$G_VER ' Las onsity was VERT f ag. 
; 288 0858 EDTSSA_ALT BUF : REF TBCB_BLOCK, ! Alternate buffer used for cut/paste. 
: 289 0859 2 EDTSSA_US_ENT : VECTOR, ! Pointers to user defined entities 
: 290 0860 2 EDT$$G_SEA_BEG, ' Leave search at begining if on 

; 291 0861 2 EDTSS$A_CUR BUF : REF TBCB_BLOCK, ! The current buffer tbcb 
s «ve B8ee EDTS$$G_TI_TYP, ' Terminal type. 

3; 293 086 EDTSS$T_LN_BUF, i Current Line buffer 

: 294 0864 EDTSSA_LN_END, ' End of current Line pointer 

: 295 0865 ED TSG. N_LEN, ' Length of current Line 

3 eff 0866 EDTSSA_LN_ PTR ' Current character pointer 

: 297 0867 EDTS$G_ “SEK. STRLEN, ' Length of current search string 

; oS 9: EDTS$$T_SEA_S ! Current search string 

; 300 L 0870 2 XIF SUPPORT_WPS 

: 309 oB2 5 EDTS$$G_PARTYP ! type of h 

3 Li : ! type of paragrap 

$ 08 0878 XFI 

3 304 Bage 

; 305 875 EDTSSA_WK_LN : REF LIN_BLOCK, ! Current Line pointer 

; $08 0876 EDT$$2_E0B_LN ; 

; 0877 EDT$$G~CC_BONE, ! Set to 1 if control C actually aborts something 
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104-000 EDTSSEXE_CHMCMD2 = execute certain Phange-node 12280571984 $3:33;40 EDT. SRCJCHMEXVERB.BLI;1 : (3) 

; oe ' 4 EDTSSL_LNOO : LN_BLOCK; ' Line number with value 1 : 
3 i + MESSAGES ((NOSELRAN, SELALRACT, INVENT, ATTCUTAPP, STRNOTFND, TOPOFBUF, BOTOFBUF, INVSTR, BADRANGE)); ‘ 
3 ig pees LOCAL ; 
cc. 2 88 START_POS : POS BLOCK, ' Position of start of text. : 
: 314 0884 END_POS : POS_BCOCK, ' Position of end of text. . 
: 315 tH ORIG_LNO : LN-BLOCK, ' Original record number ; 
; 316 886 NUM_CINES : LA_BLOCK, ! Number of Lines in the range. ; 
s 3517 0887 SR, ' Set if range was a select range. : 
; 18 888 NC ' Number of characters included in this entity. ; 
3 3 $44 SUCCEED; ! Set to zero if we hit a boundary. : 
3 1 0891 SUCCEED = 1; : 
; ¢ +944 SR = 0; ; 
; 089 NC = 0; | : 
3 $e 0894 + ; 
: 5 0895 ! Setup the search string if it is a quoted string. 3 
; 326 0896 '= : 
3 6Ber 0897 3 
; 328 0898 IF (ENTITY EQL ENT_K_QUOTE) | : 
; Bey 0899 3 
3 3 34 BEGIN : 
; 3¢ 0902 4 IF ( NOT EDTSSSET_SEASTR (.EDTS$$A_SEA_STR, .EDTS$G_SEA_LEN)) | ; 
3; 3p 0903 3 THEN : 
3 336 0904 4 BEGIN Ps 
s 335 0905 4 SUCCEED = 0; : 
s 336 0906 4 EDTSSMSG_BELL (EDTS_INVSTR); $ 
s 357 0907 4 RETURN (.SUCCEED); | Fs 
3 338 0908 3 END; s 
: 339 0909 3 
: 340 0910 '¢ F 
; 341 0911 ' If the next command is advance or backup, set the direction now | é 
; 34 6018 ' so we can use the advance and backup keys to terminate the search : 
; 34 091 ! string Like KED does. : 
: 345 $918 3 
; 346 0916 3 WHILE ((CHSRCHAR (.EDTS$A_CMD_BUF) EQL %C' ') AND ((.EDTSSA_CMD_BUF + 3) LEQA .EDTSSA_CMD_END)) DO 3 
3 84 244 q EDTSSA_CMD_BUF = CHSPCUS T.EDTS$A_CMD_BU a wee | : 
3 348 0919 4 IF ((.EDTSS$A_CMD_BUF + 3) LEQA .EDTS$A_CMD_END) ; 
: 20 0920 3 THEN | : 
, 39} $36) 4 BEGIN F 
° 26 9 ¢ 4 3 
3 37 4554 2 IF EOTESSTR CP (.EDTSSA_CMD_BUF, UPLIT (BYTE ("BACK')), 4, 3) : 
3 : 
; 355 0925 4 EDT$$G_DIR = DIR_BACKWARD ; 
; 3$ bo5$ : ELSE 3 
3 4 0998 2 IF EDTS$SSTR_CMP (.EDTSSA_CMD_BUF, UPLIT (BYTE ("ADV')), 3, 3) THEN EDTS$G_DIR = DIR_FORWARD; | ; 
; 360 6 0 ; END; 3 
{362 0932 : 
3 8 $338 ; 3 
: 64 0934 '¢ 3 


et et et et et et et et et et ek 
—OOONOUS WN —-O0On 
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_CHMCMD2 = execute certain Chenge-sode 12-80 p-198e $3:33:%5 EDT. SRCJCHMEXVERB.BLI; 


! To make the Line, word, sent, te entities work properly for deletes 
! we must first move to the beginning of the entity. This does not 
apply for moves. 


IF ((.VERB NEQ VERB_K_MOVE) AND 
([VERB NEQ VERB-K-CHGC) AND i 
[VERB NEQ VERB-K~CHGU) AND i 
tren VERE NEQ VERB-K-CHGL)) 


CASE 2 ENTITY/2 FROM ENT_K_CHAR/2 TO LAST_K_ENT/2 OF 
CENT_K LINE/2] : 
EDTSSA_LN_PTR = CHSPTR (EDTS$T_LN_BUF); 


CENT_K_WORD/2) : 
EDTSSFND_BWD (0); 


CENT_K_SEN/2]) : 
EDTSSFND_BSEN (); 


CENT_K_PAGE/2) : 
BEGIN 
EDTS$S$CS_RIGHT ( 


); 
SUCCEED = EDTSSFND_ENT (.EDTSSA_US_ENT (C2 + (.ENTITY EQL ENT_K_PAGE)], DIR_BACKWARD, 1); 


IF (.SUCCEED EQL 2) THEN SUCCEED = 0 ELSE SUCCEED = 1; 
END; 


CENT AR/2) : 


K_P 
BEGIN 
EDTSSCS_RIGHT (); 
Z1F SUPPORT_wWPS 
XTHEN 


IF (.EDTSS$G_PARTYP EQL WPSPARA) 


Lg SUCCEED = EDTSSFND_WPARA (DIR_BACKWARD) 


SUCCEED = EDTSSFND_ENT (.EDTSSA_US_ENT (2), DIR_BACKWARD, 1); 
IF (.SUCCEED EQL 2) THEN SUCCEED = 0 ELSE SUCCEED = 1; 
END; 
END; 
CINRANGE) : 
BEGIN 
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EOTSCHAEKVERS EDTSCHMEXVERB = execute certain change-mode com 15-Sep-1984 #33349 ioe Oh oeeae V4.0-742 Page 9 
v04-000 EDTSSEXE_CHMCMD2 = execute certain change-mode 14-Sep-1984 12:22:30 EDT. SRCJCHMEXVERB.BLI;1 (3). 
s 6 99 END; ; 
; 4 g 0398 . 
; 424 L 0994 ZIF _EXTRA_ASSERTS : 
: 425 0995 ZTHEN : 
: 426 3328 3 
: 427 099 COUTRANGE) : | : 
; 428 0998 ASSERT (0); ‘ 
: 429 0999 XFI : 
; 430 1000 ‘ 
> «431 1001 TES; $ 
; 4 ¢ 1006 : 
; 4 100 '¢ 3 
3 434 1004 : Save the original position in the buffer. | : 
> 435 1005 te : 
: 436 1006 EDTSSSAV_BUFPOS (START_POS); | : 
3 457 1007 3 
; 438 L 1008 ZIF EXTRA_ASSERTS 3 
: 439 1009 T 3 
; 440 1010 ASSERT (.START_POS CPOS_CHAR_POS] LEQU 255); FH 
: 441 1011 ZFI : 
> 44 1316 2 $ 
; ret a 2 MOVELINE (EDTSS$A_CUR_BUF CTBCB_CUR_LINJ, ORIG_LNO); ; 
3; 6445 1015 $ ! Loop over the entity count moving by one entity each time. : 
> 446 1016 2 !- ; 
3 447 1017 : 
: 448 1018 INCR I FROM 1 TO .COUNT DO 3 
; 449 1019 BEGIN | F 
: 450 1020 3 5 
: 451 1021 4 IF CEDTSS$CHK_CC () NEQ 0) | 3 
: $26 19s¢ 3 THEN 3 
3. 65 1023 4 BEGIN | : 
> 454 1024 4 EDT$$G_CC_DONE = 1; | : 
; 455 1025 4 EXITLOOP; : 
; 456 1026 3 3 : 
: 458 1028 3 !+ ae F 
; 459 OEP ! Process one entity of the specified type, ° 
; 460 1030 3 i- | ; 
3: 461 1031 : 
: 462 1036 CASE .ENTITY + .EDT$$G_DIR FROM 1 TO LAST_K_ENT + 1 OF 3 
: 463 103 SET : 
> 464 1034 : 
; 465 Ht CENT_K_CHAR + DIR_FORWARD] : ; 
: 466 1036 4 BEGIN : 
: 468 1038 4 IF (SUCCEED = EDTS$SCS_RIGHT ()) THEN NC = 1; : 
: 469 1039 4 : 
; 470 1040 END; ; 
3: 47 1 ri} CENT_K_CHAR + DIR_BACKWARD] : : 
3; 47 1045 4 BEGIN : 
3 476 1044 4 : 
: 475 1045 4 IF (SUCCEED = EDTSSCS_LEFT ()) THEN NC = 1; 3 
; 476 1908 4 : 
; 4677 104 ; END; : 
; 478 1048 3 


SUCCEED = EDTS$CS_UP (); 
EDTS$SC_MATCHCOL 7%); | 
EDISSG_VERT = 1; 


CENT, K Bu + DIR_FORWARD, ENT_K_BW + DIR BACKWARD, ENT_K_WORD + DIR_BACKWARD] : | 


S8Ssss2zssc 


IF EDTSSCS_LEFT () THEN NC = EDTSSFND_BWD (0) + 1 ELSE SUCCEED = 0; 
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104000 SSEXE_CHMCMD2 = execute certain Shenge-node 14-Sep-19 4 $3:33;40 LeDT sre CHMEXVERB.BLI;1 Mage (3) | 
; 479 9 CENT_K_VERT + DIR_FORWARD] : 
ret ? BEGIN i 
re ¢ IF (.EDTS$SG_VERT EQL 0) THEN EDTSSSC_CPUNEWCOLPOS (); 
tke ¢ ee EQLA EDT$$2_E0B_LN) 
ry § 5 SUCCEED = 0 
488 8 BEGIN 
489 9 EDT$S$CS_DWN (); 
490 0 EDTSSSC-MATCHCOL (); 
491 1 ND; | 
49 : EDTSSG_VERT = 1; 
t3e ¢ END; 
496 6 CENT_K_VERT + DIR_BACKWARD] : 
red i BEGIN 
F344 i IF (.EDTSS$G_VERT EQL 0) THEN EDTSS$SC_CPUNEWCOLPOS (); 
4 
5 
6 
7 
8 
9 
0 
4 
5 
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501 
502 
503 
504 
505 
5 
507 
508 
509 
510 8 
511 8 EDT$$G_DIR = DIR_BACKWARD; 
i Of ie 
2\% 8 ENTE BSEM + DIR_FORWARD, ENT_K_BSEN + DIR_BACKWARD, ENT_K_SEN + DIR_BACKWARD] : 
516 
517 87 IF EDTSSCS_LEFT () 
518 8 THEN 
519 9 BEGIN 
520 0 
521 1 LOCAL 
: § ¢ STAT : INITIAL (1); 
524 4 IF (CH$RCHAR (.EDTS$A_LN_PTR) EQL ASC_K_CR) 
525 095 
526 096 EDTSSCS_LEFT () 
ase 344 ELSE 
356 099 WHILE (C(CHSRCHAR (.EDTSSA_LN_PTR) EQL %C* *) AND (.STAT NEQ 0)) DO 
e399 190 STAT = EDTSSCS_LEFT (J; 
$32 196 EDTSSFND_BSEN (); 
3 10 
34 Re E 
35 105 SUCCEED = 0; 


5 | x 
EDTSCHMEXVERB DISCHMEXVERB = execute certain change-mode com 18-se $1984 23:53:49 AX-11 Bliss-32 V4.0-74 p 1) ED 
v04- BTSs E_CHMCMD2 = execute certain Ghange-node 14-Sep-19 4 $3:33;40 EDT. SRCICHMEXVERB.BLI; vest 3) 


EDTS$G_DIR = DIR_BACKWARD; 
END; 


CENT KEW + DIR_FORWARD, ENT_K_EW + DIR_BACKWARD, ENT_K_WORD + DIR_FORWARD) : 


SOON 


IF (.EDTSSA_WK_LN EQLA EDT$$Z_EOB_LN) THEN SUCCEED = 0 ELSE NC = EDTSSFND_EwD (); 
EDT$$G_DIR = DIR_FORWARD; 
END; 


CENT_K_SEN + DIR_FORWARD) : 
BEGIN 


If (-EDTSSA_WK_LN EQLA EDTS$Z_E0B_LN) 
SUCCEED = 0 
LSE 


| 
| 
| 
| 
| 
| 
| 
| 
} 
WHILE EDTS$$CS_RIGHT () DO | 

IF EDTSSFND_SENDLIM (1) THEN EXITLOOP; 
END; | 


CENTAKAESEN + DIR_FORWARD, ENT_K_ESEN + DIR BACKWARD] : 


AAAS AOMMNMNVIUVNUI ES SEPP EEE 
MViFUN—OODNOUESWN-"OOONOUS WN 


IF (.EDTS$$A_WK_LN EQLA EDT$$Z_E0B_LN) 
SUCCEED = 0 
LSE 


3 es 


WHILE EDTSS$CS_RIGHT () DO 
IF EDTSSFND_SENDLIM (0) THEN EXITLOOP; 
EDTS$G_DIR = DIR_FORWARD; 
END; 


CENT, KAN + DIR_FORWARD, ENT_K_NL + DIR_BACKWARD, ENT_K_LINE + DIR_FORWARD] : 


IF (.EDTSSA_WK_LN EQLA EDT$$Z_E0B_LN) 
5 SUCCEED = 0 


OODmony NNN 
WRC OCONOUSWN—-O0an 


NC = CHSDIFF (.EDTSS$A_LN_END, .EDTSSA_LN_PTR) + 1; 
SUCCEED = EDTSSCS_DUN"(); 


SSBIEAR 


EDTS$G_DIR = DIR_FORWARD; 
END; 


Se Se Se Se Se Se Se Se Se Se Be Se Se Ss ee Fe Se Se Ge Se Fe Ge Se Fe Ge Be Ge Se Se we Se Se Se Se Se SHS Se Se Se 4 Oe Se FH S8 Se Se ee SHS oe HSH Se Se ee 
SEE 
MO ODN UE WN OOD VNOAU EWN 0 OONO UE WN (0 OG NOUS WN ("OOO NOUSWN—O0O@ 


PUPP PUPP PUP DUP PVPS PUPILS IUPUI SUSIE SULTS VSS SISSY 
DRED DAA B Be BB EEE BE BANANA AION NIPPINPND 2 2 OO 


oo 
Ces 


CENT_K_EL + DIR_FORWARD) : 
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EDTSCHMEXVERB EDTSCHMEXVERB - execute certain change-mode com b-s2 1984 23:53:49 AX-11 Bliss-32 V4.0-74 Page 12. 
‘ba EDISSEXE CHMCMD2 - execute certain Phenge-node 12-8 08-198e 43:33:49 YEDT SREICHMEXVERD. BL 144 2 (3) 
: 593 1163 4 BEGIN : 
; 594 116% 4 ; 
; 595 1169 ; IF (.EDTSS$A_WK_LN EQLA EDT$$2_E0B_LN) : 
3 3 1169 4 SUCCEED = 0 ; 
; 598 1168 4 ELSE $ 
; 599 1169 5 BEGIN ; 
; 600 1170 é NC = 0; 3 
3; 601 1171 : 
; 60 1178 § IF CHSPTR_EQL (.EDTSSA_LN_END, .EDTS$A_LN_PTR) § 
; 60 117 THEN | $ 
; 604 1174 6 BEGIN 3 
; 605 1175 6 EDTS$CS_DWN (); ; 
; 606 1176 6 NC = 1; 3 
; 607 1177 (5 END; F 
: 608 1178 § ; 
: 609 1179 5 NC = .NC + CHSDIFF (.EDTSSA_LN_END, .EDTSSA_LN_PTR); 
; 610 1180 5 EDTSS$A_LN_PTR = .EDTSS$A_LN_END; 
: 611 1181 4 END; | 
3 612 1188 4 
> 61 1183 3 END; | 
3; 614 1184 ; 
: 615 1185 CENT _K_EL + DIR_BACKWARD] : | 
; 616 1186 4 BEGIN | 
3; 617 1187 4 
; 618 1188 4 LOCAL 
3; 619 1189 4 LEN; 
: 620 1190 4 
g 6¢1 1191 ‘ LEN = CHSDIFF (.EDTS$S$A_LN_PTR, CHSPTR (EDTS$T_LN_BUF)); 
3 £58 1198 5 IF (SUCCEED = EDTS$$CS_UP ()) 
3 624 1194 4 THEN 
; 625 1195 5§ BEGI 
> 626 1196 § NC = .LEN; 
; 627 1197 5 EDTS$A_LN_PTR = .EDTSSA_LN_END; 
: 628 1198 4 END; 
: 629 1199 4 
2 re = | 
; 632 1202 CENT K_ BL + DIR_FORWARD, ENT_K_BL + DIR_BACKWARD, ENT_K_LINE + DIR_BACKWARD) : 
s 635 1203 4 BEGIN 
3 634 1204 4 
3: 635 1205 5 IF CHSPTR_EQL (.EDTSSA_LN_PTR, CHSPTR (EDTS$$T_LN_BUF)) | 
: 636 1206 4 THEN 
: 63 1207 5 BEGIN 
: 638 1208 5 
3: 639 1209 5 IF (SUCCEED = EDT$SCS_UP ()) THEN NC = .EDTS$G_LN_LEN + 1; 
3; 640 1210 5 
3; 641 1211 § END 
: o6¢ 1 13 4 ELSE 
; 64 121 | 
3 644 1214 NC = CHSDIFF (.EDTSSA_LN_PTR, CHSPTR (EDT$$T_LN_BUF)); 
> 645 1215 EDTS$A_LN_PTR = CHSPTR (EDTS$$T_LN_BUF); 
3 066 1 1g 4 END; 
; 64 1217 4 
3 648 1218 4 EDTS$$G_DIR = DIR_BACKWARD; 
3; 649 1219 3 END; 
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SEXE-CHACMD2” = execute certain shangesmoce 1eogeortg 2 13:33:30 Pedr sredchmexve xo ou 124 

CENT_K_ PAGE + DIR_FORWARD, ENT_K_EPAGE + DIR_FORWARD, ENT_K_EPAGE + DIR_BACKWARD] : 
SUCCEED = EDTSSFND_ENT (.EDTS$A_US_ENT [3], DIR_FORWARD, .ENTITY EQL ENT_K_PAGE); 
IF (SUCCEED EQL 2) THEN SUCCEED = 0; 
EDTS$G_DIR = DIR_FORWARD; 


CENT_K_EPAR + DIR_FORWARD, ENT_K_EPAR + DIR_BACKWARDJ : 
SUCCEED = EDTSSFND_ENT (.EDTSSA_US_ENT [2], DIR_FORWARD, 0); 
IF (.SUCCEED EQL 2) THEN SUCCEED = 0; 
EDTS$G_DIR = DIR_FORWARD; 


CENT_K PAGE + DIR_BACKWARD, ENT_K_BPAGE + DIR.BACKWARD, ENT_K_BPAGE * DIR_FORWARD] : 
SUCCEED = EDTSSFND_ENT (.EDTS$A_US_ENT [3], DIR_BACKWARD, 1); 
IF (.SUCCEED EQL 2) THEN SUCCEED = 0; 
EDTS$G_DIR = DIR_BACKWARD; 


CENT KABPAR + DIR_BACKWARD, ENT_K_BPAR + DIR_FORWARD] : 
SUCCEED = EDTSSFND_ENT (.EDTS$A_US_ENT [2], DIR_BACKWARD, 1); 
IF (.SUCCEED EQL 2) THEN SUCCEED = 0; 
EDTS$G_DIR = DIR_BACKWARD; 


CENT_K_PAR + DIR_BACKWARD] : 
BEGIN 
Z1F SUPPORT_WPS 
ZTHEN 


If _(.EDTSSG_PARTYP EQL WPSPARA) 
KL SE SUCCEED = EDTSSFND_WPARA (DIR_BACKWARD) 
tI 

BEGIN 
SUCCEED = EDTSSFND_ENT (.EDTS$SA_US_ENT [2], DIR_BACKWARD, 1); 
IF (SUCCEED EQL 2) THEN SUCCEED = 0; 
EDT$$G_DIR = DIR_BACKWARD; 
END; 
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_CHMCMD2 = execute certain Change-mode 14-Sep-1984 12:22:30 EDT. SRCJCHMEXVERB.BLI; 


END; 
CENT_K_PAR + DIR_FORWARD] : 
BEGIN 


ERT SLIME RVERS 


707 


§ 


mx 
xz 
mm 


L X1F SUPPORT_wPS 
XTHEN 
IF (.EDTS$G_PARTYP EQL WPSPARA) 
Lge SUCCEED = EDTSSFND_WPARA (DIR, FORWARD) 
iF 


BEGIN 

SUCCEED = EDTSSFND_ENT (.EDTS$A_US_ENT C2], DIR_FORWARD, 1); 
IF (.SUCCEED EQL 2) THEN SUCCEED = 0; 

EDTS$G_DIR = DIR_FORWARD; 

END; 


END; 
CENT_K_BR + DIR_FORWARD, ENT_K_BR + DIR_BACKWARD] : 


N 
EDTS$CS_TOP (); 
EDTS$6_IR = DIR_BACKWARD; 
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5 
6 
37 CENT_K_ER + DIR_FORWARD, ENT_K_ER + DIR_BACKWARD] : 
739 EDT$$CS_BOTBUF (); 
740 1 EDT$$G_BIR = DIR_FORWARD; 
ral END; 
243 1 CENT_K QuoTe + DIR FORWARD, ENT_K_QUOTE + DIR_BACKWARD] : 
45 SUCCEED = EDTS$$STR_SEACMD (EDTS$T_SEA_STR, .EDTS$G_SEA_STRLEN, 1, .EDT$$G_DIR); 
47 IF (.SUCCEED EQL 2) THEN SUCCEED = 0; 
749 1 IF .SUCCEED 
730 3 THEN 
752 2 IF ((.EDTS$G_SEA_BEG EQL 0) AND (.VERB NEQ VERB_K_SSEL)) 
i ; — 
755 2 DECR I FROM .EDT$$G_SEA_STRLEN - 1 TO 0 DO 
756 2 EDTSSCS_RIGHT (J; 
757 
38 END; 
760 CENT_K_SR + DIR_FORWARD, ENT_K_SR + DIR_BACKWARD] : 
761 3 BEGIN 
08 3 IF (.EDT$$A_SEL_BUF EQL .EDTS$SS$A_CUR_BUF) 


5 
EDTSCHMEXVERB EDTSCHMEXVERB = execute certain change-mode com bese 1984 23:53:49 AX-11 Bliss-32 V4.0-74 Page | 
104-600 EDISSEXE. CHNCMD2 = execute certain Thenge-noce 14-Sep-19 4 $3:33:4§ LEDT SREICHMEXVERD. BL 1. . Rs 
> 7646 1334 4 THEN 
; 765 1335 BEGIN 
3 £08 1 § 
; 76 L1 ZIF_EXTRA_ASSERTS 
; 768 1 3 XTHEN 
: 769 1 ASSERT (.EDTSSA_SEL_POS GEQA EDT$S$T_LN_BUF); 
; 770 1340 “FI 
s 77 1341 
3 ae 1 rt: '¢ 
We ie 134 ' Determine the directicn. 
: 776 1344 l= 
3; 775 1345 
; 776 1346 LASE EDTSSSEL_RNGPOS () FROM -1 TO 1 OF 
3; 777 1347 SET 
; 778 1348 
3; 779 1349 : {-1] : ' Select Line is before current line 
; re : 9 EDTS$$G_DIR = DIR_BACKWARD; 
$ vee 1382 2 J: ! Select Line is current Line, check character position 
; 188 1333 3 EDT$$G_DIR = CHSPTR_LSS (.EDTSSA_LN_PTR, .EDT$$A_SEL_POS); 
; 785 1355 5 1]: ' Select Line is after current Line 
> 786 1356 5 EDT$$G_DIR = DIR_FORWARD; 
: 787 1357 § 
: 788 L 1358 5 XZIF EXTRA_ASSERTS 
; 789 1323 5 XTHEN 
; 790 1360 5 
: 791 1361 5 COUTRANGE) : 
; 79 1366 5 ASSERT (0); 
: 79 1365 5 Fl 
: 794 1308 5 
3; 795 1365 5§ TES; 
3; 796 1366 5 
3; 797 it + 4 : '¢ ‘ 
; 798 1368 ! Move up or down until we get to the right Line. 
; 799 1369 5 !- 
; 800 1370 5§ 
; 801 hig BR WHILE 1 DO 
; 80 1376 5 
; 80 137 5 CASE EDTSS$SEL_RNGPOS () FROM -1 TO 1 OF 
: 804 1374 5 SET 
; 805 1375 5 ; ’ 
: 806 1376 65 -1) : ' Select Line is before current ‘ine 
; 807 it 144 5 EDTSS$CS_UP (); 
: 808 1378 5 wero : 
; 809 1379 5 Jd: ' Select Line is current Line 
; 810 1380 EXITLOOP; 
3; ©8611 1381 . ’ 
3 aig 1336 ]: ! Select line is after current Line 
; 81 138 EDTSS$CS_DWN (); 
: si3 13ee 
; 815 L 1385 5 XIF EXTRA_ASSERTS 
: aig 1 36 ZTHEN 
: 1 1 
; 818 1388 COUTRANGE) : 
; 819 1382 ASSERT (0); 
; 820 1390 ZF 1 
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EDTSCHMEXVERB EDTSCHMEXVERB - execute certain change-mode com 18-52 1984 23:53:49 AX-11 Bliss-32 V4.0-74 Page 16 
104-000 EDISSEXE CHMCMD2 = execute certain Phange-acde 12780874 382 $3:33:49 YEDT SREICHMEXVERB BL {: ’ S| 
; : : 1 33 TES | 
; § 1 38 
; 824 1394 '¢ 
3 : 5 : 2 Point to the selected position. 
; 8 ? i 33 EDTSSA_LN_PTR = .EDTSSA_SEL_POS; 
; 829 L 1399 5 XIF EXTRA_ASSERTS 
; 850 1400 XTHEN 
; 831 1401 ASSERT ((.EDTSS$A_LN_PTR = EDTS$T_LN_BUF) LEQU 255); 
: 8 ¢ ne xF I 
3; § 140 
; 834 1404 '¢ 
; 835 1405 ! And turn off the select range, now that we've used it. 
; 836 1406 t= 
; 837 1407 EDTSS$A_SEL_BUF = 0; 
; 838 1408 2 SR = .SR +71; 
; 839 1409 EXITLOOP; 
; 840 1410 5 END | 
: 841 1411 4 ELSE 
: Beg vei8 5 BEGIN 
; 84 1413 5 
3; 844 1414 5§ LOCAL 
; 845 1415 5 CURSOR_MOVES; 
; 846 1416 5 
3; 847 1417 5 CURSOR_MOVES = 0; 
: 848 1418 5 
; 849 1419 6 IF ((.EDTS$G_SEA_BEG EQL 0) AND (.VERB NEQ VERB_K_SEL)) 
; 850 1659 5 THEN | 
> 851 1421 § 
H HE 1056 : DECR I FROM .EDTS$G_SEA_STRLEN - 1 TO 0 DO 
3 Bee 1e$8 : IF EDTSSCS_LEFT () THEN CURSOR_MOVES = .CURSOR_MOVES + 1; 
: 856 1426 6 IF ((. COUNT EQL 1) AND . 
; 857 1427 6 (.EDT$$G_SEA_STRLEN GTR 0) AND EDTSSTST_ONSTR (EDTS$$T_SEA_STR, .EDT$$G_SEA_STRLEN)) 
; 858 1428 5 HEN 

1? B59 1409 § | 
: 860 1430 6 IF (, EDT$$G_SEA_BEG NEQ 0) 
; 861 1431 5 THEN 
; B06 1636 6 BEGIN 
; 86 1433 6 
3; 864 1434 6 DECR I FROM .EDTS$S$G_SEA_STRLEN - 1 TO 0 DO 
; 865 1435 6 EDTS$$CS_RIGHT (J; 
3; 866 1436 6 
; 867 1437 6 EDT$$G_DIR = DIR_FORWARD; 
3; 868 1438 6 N 
3 oo? 1439 5 ELSE 
3; 870 1440 5 EDT$$G_DIR = DIR_BACKWARD 
$ 71 1441 : 
3 a 1248 ELSE 
: 7 1445 6 BEGIN 
: Bre 1444 § 
$ 75 1445 IF (.EDTS$G_SEA_BEG EQL 0 AND .VERB NEQ VERB_K_SSEL) 
: 876 mas 6 THEN 
; 877 1447 6 


5 
EDTSCHMEXVERB EDTSCHMEXVERB - execute certain change-mode com shese -1984 253: AX-11 Bliss-32 V4.0-74 Pa 7) 
104-000 EDT ESEXE CHMEMD2 = execute certain Phange-node 12286-1382 43:33:48 YEbT SREICAMEXVERB OL 24 wit 3 
; 87 1448 6 DECR I FROM .CURSOR_MOVES = 1 TO 0 DO 
; Mf 1445 e EDTSSCS_RIGHT (J; 
3 81 14 ; ? LF ((.VERB EQL VERB_K_CHGC) OR (.VERB EQL VERB_K_CHGU) OR (.VERB EQL VERB_K_CHGL)) 
: 88 1453 6 ; 
3 : 4 14 $ 6 IF (.ED)95G_DIR EQL DIR_BACKWARD) THEN EDTSSCS_LEFT () ELSE EDT$S$CS_RIGHT () 
; 14 ELSE 
; Bs? 1437 $ BEGIN 
; 888 14 8 7 EDT$SMSG_BELL (EDT$_NOSELRAN) ; 
: Heid 1459 7 RETURN (0); 
; 890 1466 6 END; 
: 891 1461 
; 89 146¢ END; 
: 89 146 
: 894 1464 4 END; 
; 895 1465 4 
2 ae: ~ 
: 898 L 1468 3 XIF EXTRA_ASSERTS 
3 34 1o87 XTHEN 
: 901 1471 COUTRANGE) : 
: 902 147 ASSERT (0); 
; 90 1473 3 XFI 
: 904 1474 : 
: oe 1276 3 ~ 
: 907 1477 3 IF ( NOT .SUCCEED) THEN EXITLOOP; 
; 908 1478 3 
: 3% 1280 § i: 
> 911 1481 2 '<BLF/PAGE> 
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EXVERB = execute certain change-mode com 18-sep-19 4 #33349 AX-11 Bliss-32 V4.0-74 
E_CHMCMD2 = execute certain change-mode 14-Sep-1984 12:22:30 EDT. SRCICHMEXVERB.BLI; 


14 
! If the verb was delete, then save the last entity in the proper 
save buffer. 


IF _(C.NC NEQ 0) AND ((.VERB EQL VERB_K DELETE) OR (.VERB EQL VERB_K_REPLACE))) 
CASE -ENTITY/2 FROM O TO ENT_K_EL/2 OF 


CENT AR/2] : 


CH 
GIN 
TSSSAV_DELTXT (.NC, EDTS$T_DEL_CH, 1); 
1$$6_DEL_CHLEN = MIN (.NC,71); 


mmmae 


CENT wORD/2, ENT_K_BW/2, ENT_K_EW/2) : 


C 
TSSSAV_DELTXT (.NC, EDTSS$T_DEL_WD, 80); 
T$86_DEL_WOLEN = MIN (.NC, 80); 


mmmnoae 


CENT NE/2, ENT_K_NL/2, ENT_K_BL/2, ENT_K_EL/2) : 


AV DELTXT (.NC, EDTS$T_DEL LN, 256); 


K 
E 
D 
D 
N 
ik 
E 
D 
D 
N 
K 
E 
DT$$s 

p G_DEL_LNLEN = MIN (.NC,~ 256); 


LI 
BEGIN 
EDTS$ 
EDTSS 


'¢ 
If the entity was not VERT then turn off the vert flag. 


IF (.ENTITY NEQ ENT_K_VERT) THEN EDTS$G_VERT = 0; 


+ 
Calculate the number of Lines in the range. 


SUBLINE (EDTSS$A_CUR_BUF CTBCB_CUR_LIN], ORIG_LNO, NUM_LINES); 
If ((.NUM_LINES CLN_HI] AND %X'8000") NEQ 0) : 
SUBLINE (ORIG_LNC, EDTSSA_CUR_BUF CTBCB_CUR_LINJ, NUM_LINES); 
ADDLINE (NUMBER_ONE, NUM_LINES); 
i Now set up the start and end position blocks, and position to the front of the range. 


ZIF EXTRA_ASSERTS 
ZTHEN 


ASSERT (.START POS CPOS_CHAR POS) LEQU 255); 
ASSERT ((.EDTSSA_LN_PTR~- EDT$$T_LN_BUF) LEQU 255); 


WAMWIA WAIN AIR PPOPIPUNINIDINID 4 3 9 3 SF SH QDOOCOCOCOCOCOCOCOCOCOOOOOOOOOMMO@OMMM@@m@ -1-1 
ONO UNE WN QO ODNAUE WN 0 OONA UE WIN SO OONO NE WWN  O ODNAM EWN "OOONAUSWN Owe 


; 

3 

3 

; 

3 

3 

3 

2 CINRANGE, OUTRANGE) : 
2 ASSERT (0); 
r4 T 

e 

2 

: 
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EDTSCHREKVERS EDTSCHMEXVERB = execute certain change-mode com 1$-sep-19 4 $3339? AX-11 Oh ieaene V4.0-74 
v04-000 EDTSSEXE_CHMCMD2 = execute certain change-mode 14-Sep-1984 12:22:30 EDT. SRCICHMEXVERB.BLI; 
we es 
; i 1541 IF (.EDTS$S$G_DIR EQL DIR_BACKWARD) 
; wT 1 2 THEN 
: 974 154 BEGIN 
i 90s 1344 EDTSSCPY_MEM (POS_SIZE, START_POS, END_POS); 
; L 1946 3 EF EXTRA_ASSERTS 
: 979 15468 ASSERT (.END_POS CPOS_CHAR_POS)] LEQU 255); 
; 980 1969 § FI 
: 9 1 2 EDTSSSAV_BUFPOS (START_POS); 
; 98 1326 
: ee 182% BEGIN 
; 986 1335 EDT$SSAV_BUFPOS (END_POS); 
; 988 L 1387 IF _EXTRA_ASSERTS 
: 990 1559 ASSERT (.END_POS CPOS_CHAR_POS] LEQU 255); 
gl. ip im 
: 99 1368 EDTSS$RPOS (START_POS); 
; 996 L 1365 @ XIF_EXTRA_ASSERTS 
: 998 1567 ASSERT (.START POS CPOS CHAR POS] LEU 255); 
; .999 1568 ASSERT (.END_POS CPOS_CRAR_POS) LEQU 255); 
He ee om 
: 1002 1571 2 !<BLF/PAGE> 
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EDTSCHMEXVERB EDTSCHMEXVERB = execute certain change-mode com 1.58 1984 23:53:49 AX-11 Bliss-32 V4.0-742 Page 20 ED 
04-000 EDTSSEXE_CHMCMD2 = execute certain Thenge-node 12-Sep-19 4 $3:33:45 EDT. SRCICHMEXVERB.BLI;1 . ay vO 
: 1008 1358 § i'n h d 

; ' Now, execute the command. 

; 1Se8 1574 '- 

: 1908 i RR CASE .VERB FROM VERB_K_MOVE TO VERB APPEND OF 

; . _K_MOV VERB_K_APPEN 

; 1009 1238 SET 

; 1010 13/8 

3 1011 157 CVERB_K_MOVE) : 

: a 1580 BEGIN 

3; 101 1581 

; ISt 1286 IF (.EDT$$G_DIR EQL DIR_FORWARD) THEN EDTS$RPOS (END_POS); 

; Ise 1584 END; 

; 101 1585 

; 1018 1386 CVERB_K_CHGC) : 
3: 1019 158 BEGIN 
: 1020 1588 
: 1021 L 1589 ZIF SUPPORT_WPS 

3; 10 ; 1590 XTHEN | 
: 102 1591 EDTSS$G_CAS_TYP = CASE_K_CHGC; 
> 1024 1336 XFI 

3: 1025 159 
; 1026 1594 4 IF ((.NUM_LINES CLN_HIJ NEQU 0) OR (.NUM_LINES CLN_MDJ NEQU 0)) | 
: 1027 1595 3 THEN 
3; 1028 1596 4 BEGIN 
: 1029 1597 4&4 EDTSSMSG_BELL (EDT$_BADRANGE); 

: 1030 1598 4 RETURN (0); 

: 1031 1599 4 
3 1032 1600 ELSE 

; 1033 1601 CHANGE_CASE (.NUM_LINES CLN_LOJ, START_POS, END_POS); 
: 1035 1808 4 IF (.SR NEQ 0) 
oi = 
; Ht e's 3 ; IF (.EDTS$G_DIR EQL DIR_BACKWARD) THEN EDTS$RPOS (END_POS) ELSE EDTSS$RPOS (START_POS); 
3; 1040 1608 END; | 
3: 1041 1609 

: inet 1610 CVERB_K_CHGU) : 
3; 104 1611 BEGIN 

3: 1044 1ol¢ 
3 1045 L 161 XIF SUPPORT_WPS 

: 1046 1614 ZTHEN 

; Hof 4 1913 EDT$$G_CAS_TYP = CASE_K_CHGU; 

3; 1049 1617 4 IF ((.NUM_LINES CLN_HI] NEQU 0) OR (.NUM_LINES CLN_MD) NEQU 0)) 

; 1050 1618 3 THEN 

: 1051 1619 4 BEGIN 

: 1036 1620 4 EDTSSMSG_BELL (EDT$_BADRANGE); 
; 105 1621 4 RETURN (0); 

3 1054 16 § 4 EN 

: 1055 16 ELSE 

; 1938 + : CHANGE_CASE (.NUM_LINES CLN_LOJ, START_POS, END_POS); 

; 1058 16 $ 4 IF (.SR NEQ 0) 

; 1059 + ; THEN 

3; 1060 1628 
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HMEXVERB = execute certain change-mode com 18-sep-1984 $3:33'43 te Oh esese He at Page (8 


EXE_CHMCMD2 = execute certain change-mode 14-Sep-1 


4 
3 
4 
4 
4 
; 
3 
4 
4 
3 
4 
4 
4 
3 
4 
4 
5 
& 
4 
4 
4 


EDT. SRCJCHMEXVERB.BLI 
IF (.EDTS$G_DIR EQL DIR BACKWARD) THEN EDTSS$RPOS (END_POS) ELSE EDTS$S$RPOS (START_POS); 


ZELSE 
xFI 
END; 
CVERB_K_CHGL] : 
BEGIN 
%1F SUPPORT_WPS 
XTHEN 
EDTSS$G_CAS_TYP = CASE_K_CHGL; 
IF 6 ( MUALINES CLN_HI] NEQU 0) OR (.NUM_LINES CLN_MDJ NEQU 0)) 
BEGIN 
EDTSSMSG_BELL (EDTS_BADRANGE); 
RETURN (0); 
SE 
CHANGE_CASE (.NUM_LINES CLN_LOJ, START_POS, END_POS); 
IF (.SR NEQ 0) 
THEN 
IF (.EDTS$G_DIR EQL DIR_BACKWARD) THEN EDTS$SRPOS (END_POS) ELSE EDT$$RPOS (START_POS); 
ZELSE 
“FI 
END; 
CVERB_K_SSEL) : ! search and select command 
BEGIN 
ZIF SUPPORT_WPS 
XTHEN 
——* NEQ ENT_K_QUOTE) ! we are only allowing the search for strings 
BEGIN 
EDTSSMSG_BELL (EDTS_INVENT); ! not a string -give error message and 
RETURN (0); ! get out. 


IF (.SUCCEED EQL 1) 
THE 
BEGIN 
IF (.EDTS$G_DIR EQL DIR_FORWARD) 


HEN 
EDT$SRPOS (END_POS) 
ELSE 


we were able to find the string 


position to the beginning of string 


ED 


F 6 


EDTSCHMEXVERB EDTSCHMEXVERB = execute certain change-mode com 17300-1398 $3:33'49 AX-11 Ol iseee V4.0-742 Page ge 
VO04= EDTSSEXE_CHMCMD2 = execute certain change-mode 14-Sep-1984 12:22:30 EDT. SRCICHMEXVERB.BLI;1 (5), 
: 1118 1686 4 DECR I FROM .EDTS$G_SEA_STRLEN = 1 TO 0 DO 

: 1333 1255 ¢ EDTSSCS_RIGHT (J; 

; 1121 1689 5 IF _(.EDTSSA_SEL_BUF NEGA 0) 

: 14 : 1691 BEGIN 

; i} ¢ 1636 EDTSSMSG_BELL (EDTS_SELALRACT); 

; i : 1o08 IF (.EDT$S$G_DIR EQL DIR_FORWARD) THEN EDTS$RPOS (START_POS) ELSE EDTSS$RPOS (END_POS); 
: 1128 1696 2 RETURN (0); 

> 1129 1697 5 

: 1489 1899 § BEGIN 

: 11 : 1700 3 MOVELINE (EDT$SA_CUR_BUF CTBCB_CUR_LIN], EDT$S$L_SEL_LN); 

s 11 1701 5 EDTSSA_SEL_BUF =" .EDTSSA_CUR_BOF; 

; i ‘ 1708 ee EDT$SA_SEL_POS = .EDTSS$A_LN_PTR; 

: 1182 1704 2 i If there was a prexreus selection —— this keystroke, rebuild the screen. The screen 
3 1137 1705 5 ! updater cannot handle simultaneous deselection and selection. 

MB ime gh 

3 1140 1708 5 IF (.EDTS$A_OLD_SEL NEQA 0) THEN EDT$$G_SCR_REBUILD = 1; 

3 1141 1709 5 

Sih ee: a 

: 1144 ar 4 SUCCEED = EDTSSEXE_CHMCMD2 (ENT_K_CHAR, -EDTS$S$G_SEA_STRLEN, VERB_K_MOVE) 

3 1145 1713 4 'move across the string with select on 

: 1146 1714 ; END; 

3 1147 1715 

; 1148 1716 3 XELSE 

3: 1149 1717 ‘3 0 

3 1150 1718 ; FI 

3 1151 1719 

£148 75) 5 6s 

: 1154 179¢ CVERB_K_TADJ] : 

Me Be sees 

: 1157 1358 4 IF ((.NUM_LINES CLN_HIJ] NEQU 0) OR (.NUM_LINES CLN_MDJ NEQU 0)) 

: 1188 1797 i THEN BEGIN 

: 1160 1728 4 EDTSSMSG_BELL (EDT$_BADRANGE); 

3: 1161 1768 4 RETURN (0); 

: 1166 1730 4 END 

Me iY 2-7 

; BY 3 1738 Z we 1 TO (.NUM_LINES CLN_LOJ - (.END_POS CPOS_CHAR_POS] EQL 0)) DO 
: 1169 1735 4 EDTS$TADJ_CMD (); 

: 1168 17 ¢ 4 EDTS$CS_DON (); 

: 1398 17 END; 

: 1170 17 3 

ate 126 _ 

: 1198 1741 CVERB_K_ DELETE, VERB_K_REPLACE) : 

3 1174 1742 BEGIN 


6 
EQTSCINEKVERS EDTSCHMEXVER® = execute certain change-mode com 18-s8,-19 4 $3:33°49 ee Bliss-32 V4.0-742 Page $3 
v04-000 EDTSSEXE_CHMCMD2 = execute certain change-mode 14-Sep-1984 12:22:30 EDT.SRCJCHMEXVERB.BLI;1 (5) 
; 1175 1743 ; EDTSSA_ALT_BUF = 0; 
3 1378 1744 
: 117 1745 4 IF_((.NUM LINES CLN_HI] NEQU 0) OR (.NUM_LINES CLN_MDJ] NEQU 0)) 
; 1178 1208 3 THEN 
: 1179 1747 & BEGIN 
: 1180 1748 4 EDTSSMSG_BELL (EDTS_BADRANGE); 
s 1133 1749 4 RETURN (0); 
3 (11 § 1750 4 
: 118 1751 3 ELSE 
: 1186 17 ¢ 4 BEGIN 
; 1185 1233 4 EDTSSDEL_TXTLN (.NUM_LINES CLN_LOJ, CHSPTR (EDTSST_LN_BUF, .END_POS CPOS_CHAR_POS])); 
311 1388 4 IF (. VERB EQL VERB_K_REPLACE) THEN SUCCEED = EDTSSINS_MOD (); 
> 1188 1756 4 
3; 1189 1757 ; END; 
: 1190 1758 
3 1191 1759 END; 
3 1136 1760 
3 119 1761 CVERB_K_FILLJ : 
: 1198 1968 sre; 
3 1196 1764 4 IF ((.NUM_LINES CLN_HI] NEQU 0) OR (.NUM_LINES CLN_MD] NEOU 0)) 
: 1197 1765 3 THEN 
3; 1198 1766 4 BEGIN 
3; 1199 1767 4&4 EDTSSMSG_BELL (EDTS_BADRANGE); 
: 1200 1768 4 RETURN (0); 
; 1¢3) 1769 4 E 
: 1202 1770 3 ELSE 
: 1203 1771 4 BEGIN 
3: 1204 HA 4 EDTSSRPL_CHGDLN (); 
3 1205 1773 4 EDTSSFILC_TXT (.NUM_LINES CLN_LOJ - (.END_POS CPOS_CHAR_POS] EQL 0)); 
; 1506 1774 & EDTSSGET_TXTLN (); 
: 1207 1775 ; END; 
3; 1208 1776 
3 1209 1777 2 END; 
3 1519 1778 
: 1211 1779 CVERB_K_CUT, VERB_K_APPEND] : 
3 Isi¢ 1780 BEGIN 
: 1s) 1781 
3 1214 1786 LOCAL 
3 1215 178 SAVE _BUF ; 
: 15i¢ irae 
: : i Vy 5 IF (.EDTSSA_ALT_BUF EQL 0) THEN RETURN (0); 
; 1318 1589 4 IF (,EDTSSA_ALT_BUF EQL .EDTSS$A_CUR_BUF) 
3 1 $9 1788 3 THEN 
3 1221 1789 4 BEGIN 
3 1$s6 1790 4 EDTSSMSG_BELL (EDT$_ATTCUTAPP); 
. | 1791 4 RETURN (0); 
: 1224 1736 ; 3 
3 1225 179 
3: 1226 1794 4 IF ((.NUM_LINES CLN_HI] NEQU 0) OR (.NUM_LINES CLN_MD] NEQU 0)) 
: 1 $i 1795 3 THEN 
3; 1228 1798 4 BEGIN 
3 1 $3 1797 4 EDTSSMSG_BELL (EDT$_BADRANGE); 
3; 1230 1798 4 RETURN (0); 
: 1251 1799 4 
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MEXVERB = execute certain change-mode com 15-Sep-1984 23:53:49 AX-11 Bliss-32 V4.0-7 P 4 ED 
XE_CHMCMD2 = execute certain Change=mode 14-Sep-19 4 13:33:30 tepr. SRCICHMEXVERB. BLI; a & voi 


ELSE 


an 
Ss 


SAVE "BUF = ,EDTSS$A_CUR_BUF; 
EDTSSA_CUR_BUF = .EDTSSA_ ALT _BuF ; 


IF (.VERB EQL VERB_K_APPEND) THEN EDTS$WF_BOT () ELSE EDTSSWF_CLRBUF (); 


S$SSTART_INS Os. 

$SA_CURBUF = 

+4 TRTUN URL EINES’ CLN_LOJ, CHSPTR (EDTSST_LN_BUF, .END_POS CPOS_CHAR_POS])); 
$A_COR ut crete CHAR eS auF = ee (,EDTSSA_LN_PTR, CHSPTR (EDTS$T_LN_BUF)); 
$A. we aru _sEDTSSA_ ALT 


—— = DOODOSCOOCOSD -- 


WO OOnNOulwn—oOo we 


'¢ 
If this is an append, ali first Line appended with previous Line. 


IF (.VERB EQL VERB_K_APPEND) 
THEN 
BEGIN 


DECR I FROM .NUM_LINES CLN_LOJ - 1 TO 0 DO 
EDTSSRD_PRVLA (); 


EDTSSGET_TXTLN (); | 
IF EDTSS$RD_PRVLN () | 
THEN 


MPOMINPOPUPOPOPoNoPoNofononofononononofnononepofopnoponopofpeoroer) 
Sal el et et ee 
OOONOUSWN-OOMm WMrwr 


APAQEMAMN AMYUNI £ 


WO OONOUSwnN— 


o 


IF A. -EDT$$G_LN_LEN + .EDTS$S$A_WK_LN CLIN_LENGTH]) LEQ 255) 


SAF 


BEGIN 

eg 4 wh 

EDTSSCPY he 
CHSPTR 

EDTS$$G_LN LEN 


EDTSSDEL_CuR 
ED DTS$RPL_ “tN CED 


T$$G_LN_LEN, CHSPTR (EDT$$T_LN_BUF) 

T LN =BUF .EDTS$A_WK_LN CLIR_LENGTHS)) 

TSSA- KUN CLIN_LENGTH], EDTS$A_WK_LN tun TEXT), 
EDT 


MorMoronon 


o 
~ 


EDT$$A_CUR BUF = .SAVE_BUF; 
perssett. TRILN (); 


0000 09 C909 08 NIN SIN NN NSO 
0.0909 09 09 09 0 0 00 00 Od OD 0D 09 OD OD OD Cd CD Cd Cd Cd C9 OS Co C9 CO C0 OD C9 CD Cd CD CD CD CD CD CO CD CO CO CO CD CD CDCD CD CUCDOCDOCNCDCSOCDCNCDCD OCU 


PUPP rs BB BB BE EE WNW ANNI NNN RPINININIPIPYIPYDY 2 OO 


a a a a a e OTIIT 
AMEN 0 ODO UNE WIN 0 COONAN WIN ( O OONAOUE WN“ OOONOUS 


PIP IMINIM INDIE BB EMA AAA AAA ANNA MANA SV SPSL LLLP PPP PPP PPP 


POPVPIPIPIPININININIPYPIPNINININPINIPY NYA 


END; 
L XIF EXTRA_ASSERTS 
ZTHEN 
CINRANGE, OUTRANGE) : 
8 ASSERT (0); 
88 uF] 


EDTSCICKVERS ED TSC 
EDTSSEXE_CHMCMD2 = execute certain change-mode 14-Sep-1984 
; 1289 1857 
: 1290 1 28 TES; 
: 1291 1 
3 1 35 1860 IF (.SUCCEED EQL 0) 
: 129 1861 THEN 
: 1294 1 °¢ EDTSSMSG_BELL ( 
: 1295 186 
: 1296 1864 IF (.ENTITY EQL ENT_K_QUOTE) 
: 1297 1865 THEN 
; 1298 1308 EDTS_STRNOTFND 
: 1299 186 ELSE 
; 1300 1868 
; 1301 1869 IF (.EDT$$G_DIR EQL DIR_BACKWARD) 
3 1 o 1870 
3 130 1871 RETURN (.SUCCEED); 
3 1304 1872 END; ! 
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XVERB = execute certain change-mode com ib. -Sep-1984 $3:3 +48 


ote: Bliss-32 V4.0-742 
EDT. SRCICHMEXVERB.BLI;1 


THEN EDTS$_TOPOFBUF ELSE EDTS$_BOTOFBUF); 


of routine EDTSSEXE_CHMCMD2 


-TITLE 
- IDENT 
»PSECT 


-ASCII 
ASCII 


Page a 


EDTSCHMEXVERB EDTSCHMEXVERB = execute certain c 


ange-mode com 
\V04-000\ 


-EDTSCODE,NOWRT, SHR, 


\BACK\ 
\ADV\ 


EDTSSFND_BSEN, EDTSSFN 
EDTSSDEL_TXTLN, EDTSSNSG BELL 
CHK_CC, EDTSS$TADJ_CAD 
EDTSSFND_ENT 


PIC,2 


D-SENDLIM 
SSTRTCMP, “EDISSSET SEASTR 
$uF GOT, EDTS$$wF CCRBUF 

SEND. INS, “EDTSSOEL ce 


DTS$c7 CNCEN 
oD 


AA oto Ht Ht Ht Ht Ht HH HH Ht HH ot Ht St St ot tt 


D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
Dd 


ED 
vO 


EO 
vc 


sell} 


PENT 

R_BUF 

BOF 

LEN 
STRLEN 

RTYP 


A_SEL_POS 
$G_VE 
$A_US 
$A_CU 
fhe 
“SER 
$e PA 
L_LA 
SECALRACT 


$ 
$ 
$ 
$ 
$ 
$ 


$ 
» Save R2,R3,R4,R5,R6,R7,- 


EDT.SRCICHMEXVERB.BLI; 
CHMCMD2 


panei Oh ieee ne oak oe 
R9,R10 


9 
0 
R8 


4 
:3 


133: 


"2: 
~-ENTRY EDTSSEXE 


4 
4 


=138 


6 
“Sep 


e-mode com 13 
OFFC 00000 


= execute certain Ehenge-node 14-Sep-19 


cute certain chan 


CHMEXVERB = exe 
SEXE_CHMCMD2 


EDTS 
EDTS 


-000 
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EDTSCHMEXVERB EDTSCHMEXVERB - execute certain change-mode com ib.se 1984 23:53:49 AX-11 Bliss-32 V4.0-74 P 
704-000 EDTSSEXE_CHMCMD2 = execute certain Change-node 12=808= 138 $3:33;%9 LeDT .src CHMEXVERB OL 124 a a 
D F INCL =R : : 
000000006 00 Q 06 391 928: MOVL RO, EDT$$G_DIR : : 
909000006 0 1 D0 O059A 93g: MOVL, #1, EDTSSG DIR : 1356. : 
00000006 0 FB OO5A1 94$: CALLS #0, EDTSSSEL_RNGPOS > 137 : 
02 FFFFFFFE  8F CF 00548 CASEL RO. ol, # : ; 
001 0021 000F 0580 95$:  .WORD 97$-95$.- F | : 
99$-95$.- : | : 
98$-95$ : : 
000000006 00 09 FB 005B6 96$: CALLS #0, EDTSSINTER_ERR 1389 | : 
: 11 00580 BRB 4§ ; 1373) : 
000000006 00 09 FB O38F 97$: CALLS $0, EDT$$CS_UP ; 1377)! : 
000000006 00 00 FB 08c8 98$: CALLS 4&0, EDTSS$CS_DWN F 1383 | : 
DO 11 O05CF BRB 94$ > 1373 ; 
000000006 00 000000006 00 00 00501 99$: MOVL  EDTS$A_SEL_POS, EDTS$SA_LN_PTR + 1397 : 
50 000000006 00 i 0506 MOVAB EDTS$$T~LN_BUF, RO + 1401 : 
50 000000006 90 C2 O005E SUBL2 EDTSSAZLN-PTR, RO : : 
50 0 CE OOSEA MNEGL RO, RO : : 
OO0000FF BF 50 01 005ED MPL RO, #255 : | . 
07 1B 005F4 BLEGU 100 ; | : 
000000006 00 00 FB 005F6 CALLS #0, EDTSSINTER_ERR : | ; 
000000006 00 04 O05FD 1008: CLRL  EDTSS$A_SEL_ : 1407 : 
58 b6 00603 INCL SR > 1408 : 
00CC 31 00605 BRW 118$ > 1335 : 
52 D4 00608 101$: CLRL  CURSOR_MOVES + 1417 ; 
000000006 00 05 OO60A TSTL  EDT$$G~SEA_BEG > 1419| : 
1D 12 00610 BNEQ  104$ : ; 
0B 98 D1 00612 CMPL «RB, #11 ; | : 
18 13 0061 BEQL ©=-:104 : : 
53 000000006 00 D0 00617 MOVL § EDT$$G_SEA_STRLEN, I + 1422 ; 
OC 11 0061E BRB 103$ ; : 
000000006 00 00 FB 00620 102$: CALLS #0, EDTSSCS_LEFT : 1424 
02 50 €9 00627 BLBC = RO,_:103$ : 
3 D6 0062A INCL CURSOR_MOVES ; 
F1 53 F4 0062C 103$:  SOBGEQ I, 1028 ; 
01 08 AC 01 0062F 1048: CMPL COUNT, #1 > 1426 
4A if 00633 BNEG 1098 ; 
000000006 00 oD 0635 TSTL  EDT$$G_SEA_STRLEN > 1427 | 
42 15 00638 BLEG 1098 ; 
00000006 DD 0650 PUSHL EDT$$G_SEA_STRLEN ; 
00000006 OF 0064 PUSHAB EDTS$T~SEA-STR ; 
000000006 FB 00649 CALLS a2. EDTSSTST_ONSTR ; | 
2C 9 0690 BLBC RO, _109$ ; | 
000000006 00 D3 065 TSTL EDT $$G_SEA_BEG 1430 | 
1¢ 13 00659 BEQL =: 108$ ; 
53 000000006 09 dd 0658 MOVL  EDT$$G_SEA_STRLEN, I : 1434 | 
11 0066 BRB 106$ ; | 
000000006 00 9 FB 00664 105$: CALLS 40, EDTSSCS_RIGHT > 1435) 
F6 F4 00668 106$:  SOBGEQ 1, 105$ ; | 
000000006 00 04 D0 066 107$: MOVL #1, EDTS$G_DIR ; 1437 
3 11 006 BRB 116$ : 1430, 
000000006 00 4 00677 108%: CLRL  EDT$$G_DIR > 1440 
4B 11 00670 BRB 116$ : 1430) 
000000006 00 b3 O67F 109$: TSTL  EDT$$G_SEA_BEG > 1445 
111 00685 BNEQ 1128 ; | 
06 58 D1 0068 CMPL = RB, #6 ; 


HMEXVERB.BLI; 
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7 
EDTSCHMEXVERB EDTSCHMEXVERB = execute certain change-mode com 18.56 -1984 2:53:49 4M=-11 Bliss-32 V4.0-74 Pa 
104-000 EDTSSEXE_CHMCMD2 = execute certain ohange-node 12280-1382 $3:33;40 LeDT SREICHMEXVERBOL 24 on Be 
5 02 47 138%: MCOML RO, Re ; 
6 E 4A LBC. = R2, 139$ : 
000000006 00 FB 00840 CALLS #0, EDTSSINTER_ERR : 
24 AE 9F 00854 139%:  PUSHAB START POS + 1562) 
000000006 00 01 FB 37 CALLS #1 EDTS$RPOS : 
OOF F F 30 At Bi 3 140$: CHEW START poset , #255 > 1567 | 
000060006 00 a9 FB 00866 CALLS #Q, EDTSSINTER_ERR ; | 
E $0 141$: BLBC Re, 142$ : 1568 
000000006 00 90 FB 008 0 CALLS #0, EDTSSINTER_ERR : 
OA 90 8 CF 0087 1428: CASEL RB. #0, #10 > 1576) 
0020 015¢ 01 ¢ otf 78 143$: WORD  144$-143$,- : 
0194 007D 06 36 8 170$-143$.- ; 
01C0 01C0 012A 888 170$-143$,- : | 
1468-1438,,- : | 
14 $-1438,- : 
151$-143$.- : 
155$-143$,- Py} 
173$-143$.- : | 
166$-143$.- : | 
176$-143$.- : 
176$-143$ : 
000000006 00 00 FB 00891 CALLS #0, EDTSS$INTER_ERR + 1855) 
5B 11 00898 BRB 154$ > 1576) 
01 000000006 00 01 0089A 144%: CMPL  EDT$$G_DIR, #1 + 1582. 
66 12 008A} BNEQ  157$ : 
14 AE 9F OOBA3 145$: PUSHAB END POS ; 
46 11 OOBA6 BRB 153 ; 
000000006 00 01 DO 008A8 146%: MOVL #1, EDTS$$G_CAS_TYP : 1591) 
07 11 OOBAF BRB 148$ : 1594 | 
000000006 00 02 DO 00881 147$: MOVL #2, EDT$$G_CAS_TYP > 1615 
08 AE BS 00888 148$: TSTw NUM_LINES+4 3 1617) 
03 12 008BB BNEQ 1498 : 
06 AE B5 008BD TSTW NUM _LINES#2 : | 
03 13 008CO 149$: BEQL 1508 ; 
O19A 31 908C2 BRw = «178$ Bc 
14 AE 9F OO8CS 150$: PUSHAB END POS > 1624 | 
28 AE 9F 008C8 PUSHAB START POS ; 
7E C at 3C 008CB MOVZWL wr INES, =(SP) ; 
0000v CF : F OOBCE CALLS #3, CHANGE_CASE ; | 
B 05 00804 TSTL = SR ; 1626 | 
1D 1 0806 BEQL 154$ ; 
000000006 00 D5 0080 TSTL EDT$$G_DIR : 1629 | 
B 1 O80 BNEQ 1388 ; | 
ci 1 E BRB 145$ ; 
000000006 00 03 DO OBE 151$: MOVL #3, EDT$$G_CAS_TYP > 1642. 
CD 11 OO8E BRB 148$ + 1644 
24 AE OF OO8EB 152$: PUSHAB START_POS : 1656, 
000000006 00 oi fe O8EE 153$: CALLS #1, EDTS$RPOS : 
0284 31 O08F5 154$: BRW 186s ; 
29 59 01 0 FB 155$: CMPL R9, #41 : 1670. 
9 13 0O08FB BEQL 1568 ; 
000000006 _8F pp ED PUSHL #EDTS_INVENT > 1673 
015 31 3 BRW 179$ : 
01 57 01 15 $:  CMPL Sut EED, #1 > 1677 | 
FA I 909 157$: BNEQ 4 : | 
01 000000006 60 01 00908 CMPL EDT$$G_DIR, #1 ; 1681 


H 7 | 
EDTSCHMEXVERB EDTSCHMEXVERB = execute certain change-mode com 15-Sep-1984 53:49 AX-11 Bliss-32 V4.0-74 p 7} 
104000 EDTSSEXE_CHMCMD2 = execute certain Change-node 1278081 984 $3:33;40 LEDT SREICHMEXVERB OL [24 soi a 
14 RE OF poste BUSHAB END POS t 1683. 
000000006 00 o} re 917 CALLS #1 « SEDTSSRPOS : | 
52 000000006 g d0 09 6 1588: MOVL FDI$$G_SEA_STRLEN, I + 1686. 
000000006 00 FB 09 9 159$: CALLS a EDTSSCS_RIGHT : 1687) 
F6 F4 009 9 160$:  SOBGEQ I, 159$ : | 
000000006 D3 09 ; 161$: st FOTS$A_SEL_BUF ; 1689) 
000000006 8F Dd 00938 PUSHL #EDT$_SELALRACT : 1692 | 
000000006 00 1 FB 941 CALLS #1 EDTSSMSG BELL ; | 
1 000000006 9 D1 00948 CMPL EDfs G_DIR, #1 + 1694 | 
12 0094F BNEQ 62$ ; 
24 a 9F 00951 PUSHAB START_POS 3 
03 11 00994 BRB 163$ : | 
14 AE 9F 00956 1628: PUSHAB END_POS : 
000000006 00 01 FB 00959 163$: CALLS #1, EDT$SRPOS ; 
0240 31 0960 BRW 194$ + 1696 
56 000000006 00 00 00963 164$: MOVL_ EDTS$A_CUR_BUF, R6 + 1700 
900000006 00 06 A6 06 28 0096A MOVC3 #6, 6(R6), EDT$$L_SEL_LN ; 
000000006 00 6 dO 00975 MOVL 6, EDT$SS$A_SEL_BU + 1701 
000000006 00 000000006 00 DO O097A MOVL EDTS$$A_LN_PTR, EDTS$A_SEL_POS + 1702 
000000006 00 05 00985 TSTL EDT$S$ATOLB_SEL + 1708 
07 13 00988 BEQL  165$ : 
000000006 00 Qt DO 00980 MOVL #1, EDT$$G_SCR_REBUILD ; 
E D4 00994 165$: CLRL (SP) : 1712) 
000000006 00 oD 00996 PUSHL EDT$$G_SEA_STRLEN ; 
01 DD 9099C PUSHL #1 3 | 
F65DsCF 03 FB 0099 CALLS #3, EDTSSEXE_CHMCMD2 : | 
64 11 009A BRBtséA 7's : | 
08 AE BS 009A5 166$: TSTW NUM LINES+4 ; 1725 | 
6D if 00948 BNEQ 174 : | 
06 ac BS OO9AA TSTW NUM_LINES+#2 : 
68 12 009AD BNEQ 1748 : 
50 D4 OO9AF CLRL = RO : 1733 
20 AE B85 00981 TSTW  END_POS+12 ; 
02 12 00984 BNEQ 1678 : 
50 06 00986 INCL RO F 
53 04 AE 3¢ 00988 167$: MOVZWL NUM_LINES, R3 : 
53 50 C2 009BC SUBL2 RO, "R : 
52 D4 009BF CLRL ] F 
0— 11 009C1 BRB 169$ : | 
900000006 00 FB O9¢s 168$: CALLS #0, EDT$$TADJ_CMD : 1735) 
00000006 re 9CA CALLS #0, EDT$$CS_DON : 1736. 
EE 52 F 90901 169$:  AOBLEQ R3. I, 168$ : 1733, 
5 11 00905 BRB 172$ : 1378 
000000006 00 04 00907 170$: CLRL EDT$$A_ALT_BUF : 174 
08 AE BS 009DD TSTW nye LIRES+% 3 1745 | 
06 AF BS 00r ae : | 
§ 1 ee NEQ Wes 3 
0 20 AE C O09E MOVZ2WL END POS+12 RO > 1753 
0000000060046 9F O09E PUSHAB EDTS$T_LN_BUFCROJ ; 
000000006 00 09 25 Soor eas Woe EDTSSOEL TXTLN 
89 g Af Sore CMPL sé, BD 7 : 1755 | 


7 
EDTSCHMEXVERB EDTSCHM etyene = execute certain change-mode com ib. -Sep- 249 AX-11 Bliss-32 V4.0-74 Page 38) 
v04-000 EDTSSEXE_CHMCMD2 = execute certain Phenge-node 14- ~Sep- 1984 $333 7:22:30 tebT. SRCICHMEXVERB.BLI; ¥ Be 
| 
A 12 00A BNEQ 172$ ; 
000000006 90 09 FB A ; CALLS #0, EDTS$INS_MOD ; 
p AOS 171$: MOVL RO, SUCCEED : 
0160 31 AOC ies: BRW 188$ : 1576) 
08 AE BS OOAOF 173$: TSTwW NUM LINES +4 + 1764 
4B 12 OOAI2 BNEQ : | 
06 AE B Al4 TSTW NUM_LINES+2 : 
46 12 OOA17 174%:  BNEQ : 
000000006 00 Q FB 00A19 CALLS #0, EDTS$SRPL_CHGDLN : 1772 
D4 OOA CLAL + 1773) 
20 AE BS OOA TSTW END_POS+#12 : 
Q 12 OOA BNEQ 1758 : 
g OA INCL R 3 
51 04 AE 3C 00A09 175%:  MOVZWL NUM LINES R1 : 
7E 51 50 C3 O0A2D SUBL3 RO."R P) F 
000000006 00 FB OOA31 CALLS OtssFite. TXT : 
013A 31 OOA38 BRW " + 1774 
50 000000006 00 b9 OOASB 176$: MOVL  EDT$$A_ALT_BUF, RO + 1785 
8 13 OOA4 BEQL 180$ : 
000000006 00 0 D1 OOAGG CMPL RO, EDTSSA_CUR_BUF : 1787) 
08 12 0OA4B BNEQ 177% : 
000000006 8F DD O0A4D PUSHL SEDTS_ATTCUTAPP : 1790) 
10 11 OOAS3 BRB 179 : | 
08 AE B5 00A55 177%: TSTW NUM LINES+4 + 1794 
05 Ne 0058 BNEQ 1 : 
06 +3 BS OOASA TSTW NUM_LINES+2 : 
10 13 OOASD BEQL ; | 
000000006 8F DD OOASF 178$:  PUSHL HEDTS BADRANGE : 1797 | 
000000006 00 01 FB 00A65 179$: CALLS EBTSSMSG_BELL ; 
0141 31 OOA6C 180$: BRW 154s : 1798 
59 000000006 00 DO OOA6F 181$: MOVL  EDTSSA_CUR_BUF, SAVE_B + 1802 
000000006 00 000000006 : DO O0A76 MOVL § EDTS$A“ALT~BUF. PD TSSAL CUR _BUF + 1803 
D4 00A81 CLRL = R > 1805 
OA 58 01 00A83 CMPL = RB, #10 ; 
08 12 00A8 BNEQ 182% : 
2 D6 OOA8 INCL R2 3 
000000006 00 00 FB OOABA CALLS #0, EDTS$$WF_BOT : 
07 11 00A91 BRB 183s F 
000000006 00 00 FB 00A93 1828: CALLS #0, EDTSSWF CLRBUE : 
000000006 00 00 FB OOASA 183$: CALLS 40, EDTSSSTART + 1807 
000000006 00 9 pO OAAI OVL SAVE_BUF EDTSSAN fUR _BUF : 1808 
50 20 AE C OOAA8 MOVZWL END Poss R : 1809 
0000009960040 9F OOAA PUSHAB EDTSST LN. GUF RO] 3 | 
ze 08 AE 3C OOAB MOVZWL N -LIRES -(SP) : | 
00000006 FB OOAB CALLS #2, EDTSSOEL_TXTLN ; | 
00000006 00 FB OOAB CALLS #0, EDT$$RPL~CHGDLN : 1810) 
0 000000006 00 pO OOAC MOVL. EDf$$A_CUR_BOF, : 1811 
51 000000006 00 9€ OOAC MOV EDTS$$T tN BuF, R1 ; 
0c ad 000000006 00 1 A3 OOAD SUBW3 sR EDT $K_LN’PTR, 12(RO) : 
000000006 00 000000006 00 v0 00AD MOVL EDTS$A_ALT~BUF, EOTS$A_CUR_BUF ; 1812 
00000006 00 0 FB OOAE CALLS #0, EDT$$RB_CURLN > 1813 | 
00000006 00 9 FB AE CALLS #0, EDISSEND_ IN > 1814 | 
6 : OAF BLBC R2. 186$ > 1819 
52 04 AE 3¢ OAr8 MOVZWL Meo nes: I > 1823 
000000006 00 a9 FB OOAF 1848: CALLS #0, EDTSSRD_PRVLN ; 1824 | 
F6 F4 OOBOS 185$:  SOBGEQ 1, 184$ : 


7 
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v04-000 EDTSSEXE_CHMCMD2 = execute certain change-mode 14-Sep- 
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; Routine Size: 2995 bytes, Routine Base: 
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000000006 
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1986 92:22:30 


X-11 Bliss-32 V4.0-74 
DT. SRCICHMEXVERB.BLI; 


$GET_TXTLN 
$RD_PRVLN 
N 
K 


N_BUF, EDT$$T_LN_BUFCR6) 
DT$$T_LN_BUF 


$_TOPOFBUF, RO 
$_BOTOFBUF, RO 


, EDTSSMSG_BELL 
CCEED, RO 


Be Se Se Se Se Se Be Be Se Se Se Be Be Se Be Se Se Ge Fe Se Se Se Se Fe Ge Se Se Se Se Be Se Se Se Se 


; 
ERT SEMREKVERS EDTSCHMEXVERB = execute certain change-mode com 15-sen-1984 $3:33'49 AX-11 Bliss-32 V4.0-742 Page 40) 
V04-000 CHANGE CASE = Change the case of characters in 14-Sep-1984 12:22:30 EDT. SRCICHMEXVERB.BLI;1 (6) | 

| 
; 1307 1874 1 XSBTTL '"CHANGE_CASE = Change the case of characters in a range’ : 
; 1508 1875 1 ROUTINE CHANGE_CASE ( ! Change the case of characters in a range ; 
; 1309 1 78 1 NUM_LINES, ' Number of Lines to process : 
: 1310 1877 1 START _POS, ! Place to start in first Line ; 
3 1311 1378 1 END_P ! Place to stop in last line ; 
5; 3 \¢ 1879 1 ) : NOVALUE = : 
3 131 1880 1 ; 
3 1314 1881 1 !++ ; 
; 1315 1Sse 1 ! FUNCTIONAL DESCRIPTION: : 
: 1316 18835 1! | : 
3 1317 1884 1! This routine scans over a range and changes the case of the characters : 
3 1318 tH 1! in that range. ; 
; 1319 1886 1! : 
; 1320 1887 1 ! FORMAL PARAMETERS: | ; 
: 1321 1888 1! > 
; 1356 1889 1 ! NUM_LINES the number of Lines to process : 
: 132 1890 1 | | ; 
; 1324 1891 1! START_POS the character position in the first line at which we : 
3; 1325 S36 k should start ’ 
; 1326 1895 1! ; ; . : 
; 44 109¢ : ; END_POS the character position in the last Line at which we should stop | : 
3; 1329 1896 1 ! IMPLICIT INPUTS: : 
3 1330 1897 1! ; 
> 1331 1898 1! EDT$$G_DIR : 
3 1336 1899 1! EDTS$T_LN_BUF : 
; 133 1900 1! EDTSS$A_LN_PTR ; 
: 1334 1901 1! EDTSSA_LN_END : 
; 1335 1o86 1! ; 
; 1336 1903 1 ! IMPLICIT OUTPUTS: : 
; 1337 1904 1! | : 
; 1338 1905 1! NONE : 
; 1339 1906 1! : 
; 1340 1907 1 ! ROUTINE VALUE: | : 
3 1341 1908 1! | : 
3 1342 1909 1! NONE : 
3 1343 1910 1! : 
3 1344 1911 1 ! SIDE EFFECTS: ‘ 
> 1345 Wie 1 i | : 
; 1346 1915 1! NONE ‘ 
; 1347 1914 1! | : 
3 1348 1915 1 !-- : 
3 1349 1916 1 : 
; 1350 1917 § BEGIN ‘ 
3 1351 1918 . 
: 1336 1919 MAP : 
: 1307 1931 END_POS : REF POS_BLOCK; ‘ 
; 1386 19 § hie ROUTINE ‘ 
; 1356 192 EDTS$S$CS_DWN, ' Move down a Line : : 
3 1357 1924 EDT$$RPOS : NOVALUE, ! Restore the saved buffer position ; 
; 1358 1925 EDTSSMRK_LNCHG : NOVALUE, ! Mark changes in a Line : 
3 1322 i? $ EDTSS$CHG_CAS : NOVALUE; ! Change the case of characters | : 
; 1361 1928 caren, : . 
; 1306 1929 EDT$$G_DIR ! The current direction. 
; 136 1930 EDT$$T~LN_BUF, ! Current Line buffer 


7 
CHMEXVERB = execute certain change-mode com 1S-sep-i 


EDTSCHMEXVERB DTS 4 23:53:49 AX-11 Bliss-32 V4.0-74 
104-000 CHANGE _CASE = Change the case of characters in 12280 8= 1382 $3:33;40 EDT.SRC CAMEXVERB<OL 14 

1 1 EDTSSA_LN_PTR, ' Current character pointer 

1 § EDTSSA_LN_END; ! End of current Line pointer 

4 L 2AL 
5 LC; 
L ? %1F _EXTRA_ASSERTS 
9 ASSERT (.END_POS CPOS_CHAR_POS) LEQ 255); 
40 xFI 


4 
Loop through all Lines. 


INCR I FROM 1 TO .NUM_LINES DO 
i. BEGIN 
; Set up pointer to Last character in Line. 


LC = CHSPTR (.EDTSS$A_LN_END); 

IF (.1 EQL .NUM_LINES) THEN LC = CHSPTR (EDTSST_LN_BUF, .END_POS CPOS_CHAR_POS)); 
XZIF EXTRA_ASSERTS 
— 
; We must not ask for a negative amount of text to be processed. 


ASSERT (.EDTS$A_LN_PTR LEQA .LC); 
ASSERT ((.LC = EDTS$T_LN_BUF) LEQ 255); 


Pas 
nm 
el 


‘is EDTSSCHG_CAS (.EDTSSA_LN_PTR, .LC); 

Mark that part of the line as changed. 

: EDTSSMRK_LNCHG (SCR_EDIT_MODIFY, .EDTSSA_LN_PTR - EDT$ST_LN_BUF); 
EDTSSCS_DUN Gs 


'¢ 
! If the direction was backward, then posttton to the start of the range. 
If forward, position to the end of the range. 


SSNS NNN SAA AAA AAAAASMIMMIVIUIMUIUIUIVI ES EBERLE 
OWONAOUVE WN $0 OODNOUES WIN (OO OONOUSWWN —OOONAULS WN — 


IF (.EDT$S$G_DIR EQL DIR_BACKWARD) THEN EDTSS$RPOS (.START_POS) ELSE EDTS$RPOS (.END_POS); 
END; ! of routine CHANGE_CASE 


Se ee Be Se Ge Ge Be Se Se Se Ge Se Ge Fe Ge SH SF Ge Se 5 Ge SF Se Se Be Se FH Se SH Ss HSH Se SESH Se SSH Se Se Se Se Se See Sees eses 
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09 
10 
11 
12 


IN 


.EXTRN EDTSSMRK_LNCHG, EDTSSCHG_CAS 
O1FC 00000 CHANGE.CASE: | 


.W Save R2,R3,R4,R5,R6,R7,R8 
58 00000000G 00 9€ 00002 MOVAB EDTSSINTER 


“ERR, RB 


MEXVERB.BLI; 


War bbe behé 878 


a 


ge-mode 
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148 bytes, Routine Base: 


; Routine Size: 


1 !<BLF/PAGE> 
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3 1413 


EDTSCHMEXVERB EDTSCHMEXVERB - execute certain change-mode com hese Sep-1984 23:53: AX-11 Bliss-32 V4.0 
042600 CHANGE _CASE = Change the case of charecters n 12280 8=198e 93:33:45 EDT. SRCICHMEXVERB. ori: 
> 1415 1981 1 END ! of module EDTSCHMEXVERB 

: 1618 19 3 1 

3 141 19 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: EDTSCODE 3150 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 

BE OA. ae, See oe eon Symbols -------- Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 97 25 40 00:00.2 

3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

> 7$255$DUA28:CEDT.SRCJSUPPORTS.L $2; 1 2 50 5 00:00.1 


; Elapsed Tinee 
; Lines/CPU Min: 


COMMAND QUALIFIERS 


Page 3 


Ree EE TEA APT RE TED OTOMEOACE A. FEA, EOE LONE VERO COE S CIO END MSRC$: CHMEXVERB.BLI/UPDATE=(ENHS:C 


..* 7 data bytes 
4 


; Lexemes/CPU-Min: 6435 


; Memory Used: 


604 pages 


; Compication Complete 
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013] AH-BT13A-SE DIGITAL EQUIPMENT CORPORATION 
VAX/VMS_ V4.0 CONFIDENTIAL AND PROPRIETARY, 
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